<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>

<head>
<title>Windows Interface Reference: Cursor structure</title>
</head>

<body>

<h1>Cursor </h1>

<p>The Cursor structure contains functions and structures to create and operate on
cursors.</p>

<pre>structure Cursor:
  sig
    type HCURSOR and HINSTANCE
    type POINT = { x : int, y: int }
    type RECT =  { left: int, top: int, right: int, bottom: int }
    val hcursorNull : HCURSOR
    val isHcursorNull : HCURSOR -&gt; bool

    datatype
      CursorId =
          OCR_APPSTARTING
        | OCR_CROSS
        | OCR_IBEAM
        | OCR_NO
        | OCR_NORMAL
        | OCR_SIZEALL
        | OCR_SIZENESW
        | OCR_SIZENS
        | OCR_SIZENWSE
        | OCR_SIZEWE
        | OCR_UP
        | OCR_WAIT

    val ClipCursor : RECT -&gt; unit
    val CopyCursor : HCURSOR -&gt; HCURSOR
    val DestroyCursor : HCURSOR -&gt; unit
    val GetClipCursor : unit -&gt; RECT
    val GetCursor : unit -&gt; HCURSOR
    val GetCursorPos : unit -&gt; POINT
    val LoadCursor : HINSTANCE * Resource.RESID -&gt; HCURSOR
    val LoadCursorFromFile : string -&gt; HCURSOR
    val LoadSystemCursor : CursorId -&gt; HCURSOR
    val LoadSystemCursorFromFile : CursorId -&gt; HCURSOR
    val SetCursor : HCURSOR -&gt; HCURSOR
    val SetCursorPos : int * int -&gt; unit
    val SetSytemCursor : HCURSOR * CursorId -&gt; unit
    val ShowCursor : bool -&gt; int
  end</pre>
</body>
</html>
